Другой человек заходит в лифт или лифт сломался или гномик хочет быть в форме
Var x,k:integer;begink:=0;repeatwriteln('введите x');readln(x);if (x>1) then k:=k+1until x=0;write('k=',k);end.
Советую запомнить формулы, если собираешься огэ сдавать, плюс ещё можно удивить своего учителя, да и друзей тоже
const x = 2;
var
y: double;
begin
y:=cos(sqr(x)+1.43*Pi)+0.5*x;
writeln(y);
end.