Программа с предусловием выведите квадрат натуральных чисел, не певышащих 50 на языке паскаль

Question

Информатика: Программа с предусловием выведите квадрат натуральных чисел, не певышащих 50 на языке паскаль

szaikin · Answer

VarA:integer;BeginFor A:= 1 to 50 do    WriteLn(A*A);End....

Программа с предусловием "выведите квадрат натуральных чисел, не певышащих 50" на языке паскаль