kobragsm

program dzielenie1;
var a,b: integer;
iloraz : real;

begin

writeln('Wprowadz a: ');
readln(a);
writeln('Wprowadz b: ');
readln(B);

iloraz:=a/b;
writeln('Wynik dzielenia a/b wynosi: ',iloraz:4:2);

end.

program dzielenie10na5;
wynik : integer;

begin

wynik:=10/5;

writeln('Wynik dzielenia 10/5 wynosi: ',wynik);

end.