Question

Составьте программу которая в строку выводит числа от 10 до 100

Answer 1

var

 i: Integer;

begin

 for i := 10 to 100 do

   Write (i, ', ');

 ReadLn;

end.

Answer 2

Program n_1;

var i:integer;

begin

   for i:=10 to 100 do write(i, ' ');

end.