Если нет подвоха, то просто умножаешь в цикле до 10 и все
program Program;
uses crt;
var i : integer;
begin
for i := 1 to 10 do
writeln (i*i);
end.
var i: integer;
for i:=1 to 10 do
writeln(i,' в квадрате - ',sqr(i));
end;
Если нет подвоха, то просто умножаешь в цикле до 10 и все
program Program;
uses crt;
var i : integer;
begin
for i := 1 to 10 do
writeln (i*i);
end.
var i: integer;
begin
for i:=1 to 10 do
begin
writeln(i,' в квадрате - ',sqr(i));
end;
end.