Написать программу в Паскалe
y=x-10
И
S=1/2ah

var y,x:integer;

begin

readln(x);

y:=x-10;

writeln(y);

end.

Объяснение:

Так что ли? Бред какой то...

program a1;

Var

x,a,h:integer;

Begin

Readln(x);

writeln('y = ',x-10);

Readln(a,h);

write('S = ', 1/2*a*h);

end.