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

Var a,b,sym,raz,proiz,chast:integer;beginwriteln ('a,b'); readln (a,b);sym:=a+b;raz:=a-b;proiz:=a*b;chast:=a/b;writeln(sym,raz,proiz,chast);end.

Program proga;uses crt;var a,b,c,d,e: integer;f: real;beginwriteln(‘Введите два числа’);readln(a);readln(b);c:=a+b;d:=a-b;e:=a*b;f:=a/b;writeln(‘Сумма чисел ‘, c);writeln(‘Разность ‘,d);writeln(‘Произведение ‘,e);writeln(‘Частное ‘,f);end.