herpusderpus

program kalkulator1;
var
    a, b: real;
    d, e: char;
    koniec, pom : boolean;

begin
    koniec := false;
    write('Podaj pierwsza liczbe: ');
    readln(a);

    repeat begin
        write('Podaj druga liczbe: ');
        readln(b);
        write('wpisz znak: ');
        readln(d);
             if (b=0) and (d=('/'))  then writeln ('dzialanie niepoprawne')
        else if d = '+' then begin a := a+b; writeln ('wynik: ', a) end
        else if d = '-' then begin a := a-b; writeln ('wynik: ', a) end
        else if d = '*' then begin a := a*b; writeln ('wynik: ', a) end
        else if d = '/' then begin a := a/b; writeln ('wynik: ', a) end
        else writeln ('dzialanie niepoprawne');

        pom := false;
        while not pom do begin
            writeln ('czy wykonac kolejne dzialanie z obecnym wynikiem? Jesli tak wcisnij t. Jesli chcesz zakonczyc wcisnij n. ');
            readln(e);

            if e = 't' then pom := true
            else if e = 'n' then begin
                pom := true;
                koniec := true;
            end
        end;

    end until koniec

end.