Program Kalkulator di Pascal [Tugas TKJ]

[UPDATE]
Halo gan,kali ini ane mau bagiin Syntax tentang Membuat program kalkulator sederhana di pascal.
Sebelumnya ane minta maaf karena syntax yang kemaren ternyata kurang pas kata guru ane untuk programnya ,tp Insyaallah sekarang bakal lebih baik lagi.langsung aja disimak syntaxnya.

var
a,b,h:integer;
o,u:char;
begin
writeln('Masukkan angka ');
readln(a);
writeln('Pilih operasi');
writeln(' + , - , * , : ');
readln(o);
writeln('Masukkan angka ');
readln(b);
case o of
'+':h:=a+b;
'-':h:=a-b;
'*':h:=a*b;
':':h:=a div b;
end;
writeln('Hasil = ',h);
repeat
writeln('Pilih operasi ');
writeln(' + , - , * , : ');
readln(o);
writeln('Masukkan angka ');
readln(b);
 case o of
'+':h:=h+b;
'-':h:=h-b;
'*':h:=h*b;
':':h:=h div b;
end;
writeln('Hasil = ',h);
until u='y';
end.



**Penampakan Hasil Syntax

Coba perhatikan Syntax Repeat (Ulang) dan Until (Sampai).syntax tersebut adalah syntax yang menunjukan kondisi perulangan.Jika jawaban 'Y',maka ulangi,jika 'T' maka berhenti.dan Coba perhatikan Hasil dari Repeat tersebut,Hasil terakhir akan langsung di eksekusi oleh case of yang kedua dan begitu seterusnya. *Seperti kinerja pada kalkulator sebenarnya.

Sekian dari pemikiran ane yang sederhana ini,mudah-mudahan bermanfaat.kalo ada masukan Syntax yang lebih dikit komeng dibawah ye..soalnya Syntax yang ane buat ini rasanya masih belum bisa dikatakan pas.karena Syntax yang efektif adalah Syntax yang sedikit tapi berhasil.

Terimakasih