Написать программу и сделать блок схему
Вход:а
Выход: квадраты всех чисел от 1 до а

var a,i:integer;

begin

readln(a);

for i:=1 to a do writeln(i*i);  

end.