Question

Напишите программу , пожалуйста !

Answer 1

Var a,i,p:integer;
begin
a:=1;
while a<=10 do degin
i:=1;
while i<=10 do begin
p:=a*i;
writeln(p);
i:=i+1;
end;
a:=a+1; end;
end.