ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!!
N-целое число, нужно вывести квадрат всех чисел о 1 до N. в паскале abc.
решить через for

var n,b:integer;beginwtriteln('введите целое число n');readln(a);for b:=1 to n do beginwriteln('квадрат ',b,' = ',b*b);end;end.