вывести подряд числа 1, 2, 3, ... , 100 с выводом ответа на экран

[Kitti]

вывести подряд числа 1, 2, 3, ... , 100 с выводом ответа на экран

[baster128]

Как то так:

Program Chisla;
uses Crt,Dos;
var MyStr:string;
i:integer;
begin
MyStr:='';
for i:=0 to 99 do
MyStr:=MyStr+StrToInt(i+1)+', ';
Writeln(MyStr)
end

[DoDge_VipeR]

Program Chisla;
var
i:integer;
begin
for i:=1 to 100 do
Write(i:4);
readln;
end.