на Paskal 7.0
program 777;
uses crt;
var a,b,c,d,s,i,j:integer
begin
a:=4
for i:=1 to 10 do begin
s:=a * i;
writeln(a '*' i '=' s);
end;
end.
