1 программа:
var a, i:integer;
begin
write('Введите натуральное число: ');
readln(a);
if (a <= 0) then
writeln('Ошибка')
else begin
for i:=1 to a do
writeln(i);
end;
end.
2 программа:
var a, b, i:integer;
write('Введите 1 число: ');
if (a < 0) then
write('Введите 2 число: ');
readln(b);
if (b < 0) then
for i:=a to b do begin
writeln(i*i);
1 программа:
var a, i:integer;
begin
write('Введите натуральное число: ');
readln(a);
if (a <= 0) then
writeln('Ошибка')
else begin
for i:=1 to a do
writeln(i);
end;
end.
2 программа:
var a, b, i:integer;
begin
write('Введите 1 число: ');
readln(a);
if (a < 0) then
writeln('Ошибка')
else begin
write('Введите 2 число: ');
readln(b);
if (b < 0) then
writeln('Ошибка')
else begin
for i:=a to b do begin
writeln(i*i);
end;
end;
end;
end.