с заданием, я не сильно разбираюсь в информатике. Написать в тетради программу, которая выводит на экран: 1) все числа от одного до заданного 2) квадраты чисел от одного до заданного.

1)

Var a,b,i: integer;

begin

writeln('Введите число до который стоит вывести числа?');

readln(a);

for i:=0 to a do  

begin

b:=i;

write(b,'; ');

end;

end.

2)

Var a,b,i: integer;

begin

writeln('Введите число до который стоит вывести числа?');

readln(a);

for i:=0 to a do  

begin

b:=sqr(i);

write(b,'; ');

end;

end.

Объяснение: