НАДО ПЕРЕПИСАТЬ ЭТУ ПРОГРАММУ ВНЕШНИЙ ЦИКЛ С ПОСТУСЛОВИЕМ А ВНУТРЕННИЙ С ПРЕДУСЛОВИЕМ uses crt ; var X , n:integer ; Y, F:real; begin readln (n); ClrScr; x:=1; for x:=1 to n do begin Y:=1.0; repeat F:= sin(sqr(y))- ln(x*y); writeln ('X=', x:4, ' ' :1, 'Y=', Y:4:2, ' ':1, 'F=', F:4:2); Y:=Y+0.5 Until Y>4.0; end; X:=X+1; end.

uses crt; procedure Prost(a:longint;var f:boolean); var i:longint; begin if a<3 then f:=false else  begin   f:=true;   for i:=2 to round(sqrt(a)) do   if a mod i=0 then f:=false;  end; end; var  a,b,i,k:longint;      f:boolean; begin clrscr; repeat writeln('Введите диапазон натуральных чисел  a<b:'); readln(a,b); until (a>=0)and(b>a); k:=0; for i:=a to b do  begin   Prost(i,f);   if f then    begin     write(i,' ');     k:=1;    end;  end; if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!'); readln end.