program EXAMPLE_5;
uses crt;
var x,y:real; i:integer; c:char;
begin
repeat
clrscr;
writeln('Задание 5. Вариант № 1');
write('Введите начальное значение х=');
readln(x);
writeln('Выберите вид цикла. Нажмите:');
writeln('1 - для цикла FOR');
writeln('2 - для цикла WHILE');
writeln('3 - для цикла REPEAT');
writeln('0 - выход из программы');
readln©;
case c of
'1':for i:=1 to 21 do
Begin
y:=sqr(1+√x)/(ln|tg x|+sin x )
проблема с ( y:=sqr(1+√x)/(ln|tg x|+sin x ) )