Паскаль.
Написать программу для нахождения площади прямоугольника.
формулы y1=(x+y)/3-t

Program lol;

Var a, b, c, s, p:real;

begin

 write('Введите длины трех сторон треугольника: ');

readln(a,b,c);

 p := (a + b + c) / 2;

 s := sqrt(p * (p-a) * (p-b) * (p-c));

 writeln('Площадь тр-ка S = ', s);

end.

Объяснение:

Program Pr_yg;

Uses crt;

Var

S,a,b:real;

Begin

 writeln('Введите стороны прямоугольника');

 readln(a,b);

 S:=a*b;

 writeln('Площадь прямоугольника равна',S);

end.