Помогите пожалуйста написать програму по задаче для Паскаля.Определить количество сетки...

Question

Помогите пожалуйста написать програму по задаче для Паскаля.
Определить количество сетки (b), которой необходимо загородить сад прямоугольной формы, со сторонами а и b метров и количество минеральных удобрений (d) для сада, если их выход (с) килограмм на метр квадратный.
а:=24
b:=50
c:=2.5

Answer 1

Var a,b,s,c,d:real;
begin
write('a, b: ');
readln(a,b);
write('c: ');
readln(c);
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.

Пример:
a, b: 24 50
c: 2.5
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг

Или так (без ввода данных):
var a,b,s,c,d:real;
begin
a:=24;
b:=50;
c:=2.5;
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.

Результат:
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг