Напишите программу на вычитание, деление и умножение (8-9 класс)

На примере:
program n_1
uses crt
var
a, b, c: integar;
begin
writeln ('введите а: ');
readln (а);
writeln (введите b: ');
readln (b);
c:=a+b
writeln ('сумма =', c);
readkey;
end.

program n_1;uses crt;vara, b, c: integer;d:real;beginwriteln ('введите а: ');readln (a);writeln ('введите b: ');readln (b);c:=a+b;writeln ('сумма =', c);c:=a*b;writeln('произведение = ',c);if b=0 thenwriteln('деление на 0')elsebegind:=a/b;writeln('деление = ',d:4:2);end;readkey;end.