Задание 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.