HRAshton Var a, b: real;
begin
    readln(a, b);
    writeln(a + b);
end.

2)
var x, y: real;
begin
    readln(x, y);
    writeln(x / y);
end.
3)
var a, b, c, d: real;
begin
     readln(a, b, c, d);
    writeln(a * b * c * d);
end.

=))