Составьте, , две программы на паскале : 1. составить программу a=b*c/d 2. составить программу: нахождение площади прямоугольника.

1.
program qwer;
var a,b,c,d: real;
begin
read(b,c,d);
a:=b*c/d;
write(a);
end.

2.
program qwer;
var a,b,s: real;
begin
writeln('Введите стороны');
read(a,b);
s:=a*b;
writeln(s);
end.