Program Kalkulator Sederhana

program kalkulator_sederhana;
uses crt;
var x, y, hasil : real;
ulang, jawab    : char;
begin
repeat
clrscr;
writeln('============= K A L K U L A T O R * S E D E R H A N A ===========');
writeln('=================================================================');
write('Masukan angka ke-1: ');readln(x);
write('Pilih operator (+)/(-)/(*)/(/): ');readln(jawab);
write('Masukan angka ke-2: ');readln(y);
        if (jawab = '+') then
         begin
         hasil := x + y
         end;
        if (jawab = '-') then
         begin
         hasil := x - y
         end;
        if (jawab = '*') then
         begin
         hasil := x * y
         end;
        if (jawab ='/') then
         begin
         hasil := x / y
         end;
writeln('Hasil: ',(hasil):5:2);
write('Mau mencoba lagi ? (y/n): ');readln(ulang);
until (ulang = 'n') or (ulang = 'N');
read;
end.