Написать программу в паскале

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

Var a, b, sym, raz, proiz, chast:integer;

begin

writeln ('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;

begin

writeln (‘Введите два числа’) ;

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.