Question

Напишите программу на вычитание, деление и умножение (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.

Answer 1

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