Составьте программу, выводящую на экран символ * 20 раз

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  Write('*'*20)
end.

Задание на умение использовать циклы. Так как мы знаем, сколько раз надо выполнить операцию, то разумнее использовать цикл for:

var i:integer;
begin
  for i:=1 to 20 do write('*');
end.

Вот и весь код.