Найти сумму квадратов всех целых чисел от a до 50 (a вводится с клавиатуры);

Написать программу Pascal

var a

ой, случайно написал.

var a

могут быть ошибки, забей в паскале, поправьvar a,b:integerbegina:=0;b:=0;readln (a);if a<51 dob:=a*a+ba:=a+1end;writeln (b);end.