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

1.program qwer;var a,b,c,d: real;beginread(b,c,d);a:=b*c/d;write(a);end.2.program qwer;var a,b,s: real;beginwriteln('Введите стороны');read(a,b);s:=a*b;writeln(s);end.