дам 50 баллов:напишите пожалуйста на паскале, очень прошу !!! решить то, что на картинке

Задание 1

var x:integer;

begin

write('x = ');

readln(x);

writeln('y = ',sqr(1-x*x+5*x*x*x*x));

end.

Задание 2

var x,i,s:integer;

begin

write('x = ');

readln(x);

s:=1;

for i:=1 to 19 do

begin

s:=s*x;

if (i=8) or (i=10) or(i=15) or(i=19) then writeln('y = ',s);

end

end.

Задание 3

var c1,z1,c2,z2,nok,x,y: integer;

begin

write('Введите числитель и знаменатель 1 дроби: ');

readln(c1,z1);

write('Введите числитель и знаменатель 2 дроби: ');

readln(c2,z2);

if z1 mod z2 = 0 then nok:=z1

else if z2 mod z1 = 0 then nok:=z2

else

begin

x:=z1;

y:=z2;

while x<>y do

begin

if x>y then x:=x-y

else y:=y-x

end;

nok:=(z1*z2) div x

end;

writeln(c1,'/',z1,' + ',c2,'/',z2,' = ',(c1*(nok div z1))+(c2*(nok div z2)),'/',nok);

end.