Program Perkalian dan Pembagian Dua Bilangan

program perkaliandanpembagianduabilangan;
uses wincrt;
var
a,b,c,d:real;
begin
writeln(' SELAMAT DATANG DI WAHANA PERKALIAN DAN PEMBAGIAN DUA BILANGAN');
Writeln(' =============================================================');
writeln;
writeln;
write('Bilangan pertama: ');read(a);
write('Bilangan kedua: ');read(b);
c:=a*b;
d:=a/b;
writeln;
writeln('Hasil perkalian dari ',a:5:2,' X ',b:5:2,' = ',c:5:2);
writeln('Hasil pembagian dari ',a:5:2,' : ',b:5:2,' = ',d:5:2);
end.