program Kalkulator;
USES CRT;
VAR A,B,Wynik : Real;
    {Real - liczby rzeczywiste - ułamki}
begin                                                                                                                               a
     ClrScr;
     Writeln('Kalkulatorek wersja 1.0');
     Write('Podaj dzielną> >');
     Readln(A);
     Write('Podaj dzielnik>');
     Readln(B);
     IF B<>0 THEN
     BEGIN
          Wynik:=A / B;
          Writeln (A:0:3,'/',B:0:3,'=',Wynik:0:3);
     END ELSE Writeln('NIE WOLNO DZIELIĆ PRZEZ ZERO!');
   Readln;
end.