Tổng 2 số

Nhập hai số A,B. Tính tổng, hiệu, tích, thương  theo yêu cầu của người dùng. Chương trình dừng lại khi người dùng không muốn nhập
                                                                 Giải
Uses crt;
 Var
    a,b: real;
    tl: char;
 BEGIN
      repeat
            clrscr;
            writeln('nhap 2 so a va b muon tinh tong hieu va tich: ');
            readln(a,b);
            writeln('tong 2 so la: ',a+b);
            writeln('hieu so lon tru so be la: ',abs(a-b));
            if (a=0) or (b=0) then writeln('Thuong cua 2 so la ',0) else writeln('Thuong 2 so ',a,'/',b,'=',a/b);
            writeln('Tich 2 so la: ', a*b);
            writeln('Ban co muon tinh tiep k???(C/K)'); readln(tl);
      until Upcase(tl)='K';
      readln;
 END.