, интернет урок. Надо на Паскале, а я его не учил *_*

Задание 1

program z1;

var a,b,c,d,e,f,z:real;

begin

read(a,b);

c:=a*a+sqr(b);

d:=sqrt(sqrt(c));

e:=sin(c);

f:=1/c;

z:=d+e-f;

writeln(z)

end.

Задание 2

скрин

Объяснение:

скрин

Или можно только одну дополнительную переменную использовать:

var

 z,t,a,b: real;

begin

 writeln('введите значения переменных:');

 write('a= ');

 read(a);

 write('b= ');

 read(b);

 t:=a*a+b*b;

 z:=power(t,1/4)+sin(t)-1/t;

 writeln;

 writeln('z= ',z);

end.