Правильное написание ошибочных строк
writeln('n1=', n,'m1=', m);
writeln(s1,k5);
readln(a,b);
read(qq);
Не очень понятны исходные формулы. Но, скорее всего, имеется в виду следующее:
1. y = (7*x*x-8*x-1)/(5*x+4)
2. y = sqr(cos(x))/4-sqr(sin(abs(x+y)))
Делим 27 на основание системы счисления 16 и собираем остатки от деления,
если остаток больше 9, то делаем замену 10 - A, 11 - B ... 15 - F. Получаем:
27(10)=1B(16)
Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>