Написать программу, которая находит сумму, произведения, частное и разность 2 целых чисел. Эти числа вводятся с клавиатуры.

Program prog;

Uses crt;

var a, b: integer;

begin

clrscr;

write ('A = ') ;

readln (a) ;

write ('B = ') ;

readln (b) ;

writeln;

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

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

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

writeln (a, '/', b,'=', (a/b) : 0:3) ;

end.