№7
program job_7;
var
x,y : integer;
begin
writeln('введите x');
readln(x);
y:=(1-(x*x)+5*(x*x*x*x))*(x*x);
writeln('y=',y);
end.
№6
var m,n: integer;
begin
writeln('Введите дроби m,n');
readln(m, n);
while m<>n do
if m>n then m:=m-n
else n:=n-m;
writeln('ответ=',m);
end.