Pascal abc. выручайте . 1) прямоугольный участок имеет размеры а на в. сколько нужно столбов для ограждения участка, если их ставят через 2 метра. 2) двигатель комнатного вентилятора имеет мощность 35 вт. какую работу он совершает за 10, минут работы? формула a=n*t.

Var a,b: real;
begin
  writeln('введите a, b');
  readln(a);
  readln(b);
  a := (a + b) * 2; // периметр
  b := Trunc(a / 2);
  if a - 2*b < 2 then b := b - 1;
  writeln(b:0:0);
end.

var i, n: integer;
begin
  n := 35;
  for i := 10 to 15 do 
    writeln('t=', i:2, ' A=', n*i);
end.