Program deret_kuadra

Program deret_kuadrat;
Uses wincrt;
Var
A,m:longint;
Begin
Writeln;
Write (‘masukkan n: ‘);
Readln (a);
For a:=1 to a do
Begin
M:=sqr (a);
Write (m,’,’);
End;
End.