Program witaj;

uses crt;

var a,b: real;

Begin

clrscr

writeln (`podaj a');

readln (a);

writeln (`podaj b');

readln (b);

writeln;

writeln (`a+b = `, a+b);

writeln (`a-b = `, a-b);

writeln (`a*b = `, a*b);

writeln (`a/b = `, a/b);

writeln (a mod b = `, a mod b);

readln;

end

---