1)
Var
x,y:integer
begin
write('введите x');
readln(x);
y=:(формула) ;
write(Y);
readln;
end.
2)
Program primer
Var a,b,s,m,d:
integer;
Begin ;
ReadLn( a,b);
s=a+b;
m:=a*b;
d:=a/b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End
3)
var x,y1,y2:real;
begin
read(x);
y1:= exp(ln(x)*10);
y2:= exp(ln(x)*15);writeln(y1);
writeln(y2);
end.
Вроде так