Question

Даны два числа A и B. вывести на экран квадрат числа В А раз.

Answer 1

Var b:real; c, a:integer;
Begin
Readln(a, b) ;
For c:=1 to a do
Writeln(sqr(b));
End.