Написатьалгоритм читающий -«N» ивыдающий на экран квадраты чисел от 1 до «N».
uses crt-
var i,n:integer-
begin-
clrscr-
writeln(‘Введите число N’)-
readln(n)-
FOR i := 1 TO n do
writeln(i * i)-
end-
end.