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

Program prog;Uses crt;var a,b: integer;beginclrscr;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.