Latihan Program Mau Lagi

program mau_lagi;
uses crt;
var
tanya:char;
angka1,angka2,jumlah:integer;
begin
repeat;
clrscr;
writeln('PROGRAM MENGHITUNG JUMLAH');
writeln('=========================');
write('masukkan angka1:'); readln(angka1);
write('masukkan angka2:'); readln(angka2);
repeat
write('mau lagi?[y/t]'); readln(tanya);
tanya:=upcase(tanya);
until tanya in['T','Y'];
until tanya='T';
readln;
end.