составить программу которая выводит текст "_" 20 раз

var

 i: Integer;

 s: string;

begin

 s := '';

 for i := 1 to 20 do

   s := s + '_';

 WriteLn (s);

end.