Задание 2 Найдите периметр и площадь кабинета
информатики. Пусть ширина кабинета бу-
дет а метров, а длина 6 метров.
b метр
а метр​

var

v,p,n,h,d: real;

begin

read(p,n,h,d);

v: =3*p*n/10/10/10*h*d*d;

end.

125 -   5/7

  х     - 2/7

х = (125 * 2/7) : 5/7 = 50 человек

фефраль-месяц зимы; май-месяц весны; август-месяц лета; сентябрь-месяц осени

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.