program oops;
uses crt;
var x,y,z,s:real;
;k:integer;
begin
clrscr; //для использования нужно подключать библиотеку crt, что в данном случае неоправданно,
//дает увеличение размера файла
write('x=');
readln(x);
y:=0.16;
repeat
z:=0.1;
repeat
s:=(y*sqr(x)+z)*arctan(z);
:=
writeln('x='); //перед writeln пишет 42 ошибка (ошибка в выражении что делать)?
k:=k+1;
if k mod 20=0 then
begin
write('Press Enter...');
readln
end;
if y<0.8 then z:=z+0.1 else z:=z+0.05;
until z>0.55;
{
y:=y+0.24;
until y>1.84;
readln;
end.