Contoh Program Pascal Menghitung perkalian dan penjumlahan dua bilangan

hello gan
apa kabar kalian, pastinya baik-baik saja kan
kali ini saya akan memberi satu contoh program menghitung perkalian dan penjumlahan dua bilangan.
ini gan contoh program nya :

uses
crt;

var
x,y : real;
kali,tambah : real;

begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian 2 bilangan : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan 2 bilangan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.

thank :)