12>10,но 12<12 неверно, значит
n:=12-1
что равно 11
STRING строковый, CHAR символьный...
Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
Ответ:
На Python:
x = 1
y = x ** 2 + 2 * x + 5
print(y)
Объяснение:
Ты бы хоть попробовал сам, ничего же сложного.
Pascal:
ln(abs((y-sqrt(abs(x)))*(x-y/(x+sqr(x)/4))))