Question

помогите по информатике​

Answer 1

Ответ:

var

n: integer;

begin

 for n := 1 to 15 do

   Writeln(Sqr(n));

 Readln;

end.