Вычислить частное и разность двух чисел
var a,b:integer; begin writeln('Vvedite chisla a,b'); read(a,b); writeln('Raznost ',a-b); writeln('Chastnoe ',a/b); end.