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

Uses crt;Var a,b,summ,razn,pro: Integer;chas: Real;BeginWrite('Введите два числа: ');Readln(a,b);summ:=a+b;razn:=a-b;pro:=a*b;chas:=a/b;Write('Сумма: ', summ, ', разность: ', razn, ', произведение: ', pro, ', частное: ', chas)End;