Verified answer

var

 i: Integer;

begin

 for i := 10 to 100 do

   Write (i, ', ');

 ReadLn;

end.

Program n_1;

var i:integer;

begin

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

end.