Основы программирования

Сумма

Program Four;
var a, b, c, d, e: integer;
begin
writeln (' Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a+b+c+d;
writeln (' Summa chisel=',e);
readln;
end.

Вычитание

Program Five;
var a, b, c, d, e: integer;
begin
writeln (' Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a-b-c-d;
writeln ('  Raznost chisel=',e);
readln;
end.

Умножение

Program Six;
var a, b, c, d, e: integer;
begin
writeln (' Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a*b*c*d;
writeln (' Proizvedenie chisel=',e);
readln;
end.

Деление

Program Seven;
var a, b, c, d: integer;
      e: real;
begin
writeln (' Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a/b/c/d;
writeln (' Chastnoe chisel=',e);
readln;
end.

Моя любимая страна