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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

uses crt;

var a, b, c, d, e, f:real;

begin

writeln ('Vvedite 2-a chisla');

readln (a, b);

c:=a+b;

writeln ('Summa = ', c:3:3);

d:=a-b;

writeln ('Raznost = ', d:3:3);

e:=a*b;

writeln ('Proizvedenie = ', e:3:3);

f:=a/b;

writeln ('Chastnoe = ', f:3:3);

end.