Нужно создать три программы в турбо паскале. 1. сумма чисел a+b 2.частное чисел x; y; 3.произведение чисел a; b; c; d;

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.

=))