Помогите пожалуйста?нужно создать три программы в турбо паскале.
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.

=))