program Belozor2 var integer begin writeln Введите первое слагаемое re

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Belozor2;
var a,b,v: integer;
begin
writeln('Введите первое слагаемое');
readln(a);
writeln('Введите второе слагаемое');
readln(b);
writeln ('Введите 1 если хотите выбрать сложение') ;
writeln ('Введите 2 если хотите выбрать вычитание');
writeln ('Введите 3 если хотите выбрать умножение');
writeln ('Введите 4 если хотите выбрать деление');
readln(v);
if v=1 then
writeln (a+b);
if v=2 then
writeln (a-b);
if v=3 then
writeln (a*b);
if v=4 then
writeln (a/b:0:2);
readln ();
end.