Question

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!! Вычислить сумму квадратов чисел от 1 до 30. Квадраты чисел записаны в файл. на паскале

Answer 1

Program g;

Var

a:integer;

Begin

Readln(a) ;

Writeln(sqr(a)) ;

End.