Question

Составьте программу вывода на экран значений целых чисел от 1 до 7 (в столбик).Через Паскаль пж..

Answer 1

program z18;

var
i: Integer;

begin
for i := 1 to 7 do
writeln(i);
end.

Answer 2

Var i: integer;
begin
for i:=1 to 7 do
begin
writeln(i);
end;
End.