Program Perkalian

Program perkalian;
uses wincrt;
var
a,b     :integer;
c       :real;
begin
clrscr;
writeln('--------------------------');
writeln('  Angka     Hasil  ');
writeln('--------------------------');

for a:=6 to 10 do
begin
for b:=1 to 10 do
begin
c:=a*b;
writeln(a,'x',b,'=',c:4:2);
end;
writeln('--------------------------');

end;
end.