POLA BILANGAN 1

uses wincrt;
var
i:integer;
begin
for i := 5 to 10 do
writeln((i)*(i))
end.

DOWNLOAD FILE