7 санына көбейту кестесі

Var

m:integer;

n:integer;

p:integer;

begin

m:=7;

for n:=1 to 10 do

begin

p:=m*n;

writeln (m, ’x’, n,‘=‘, p);

end;

readln;

end.

            Артқа