проверки

repeat
          repeat
      repeat
        writeln('введите A');
        readln(s);
        val(s,a,c);
        if (c<>0) then writeln('не число');
      until c=0;
 
          if a<=0 then
          writeln('A должно быть больше 0');
          until a>0;
 
      repeat
        writeln('введите B');
        readln(s);
        val(s,b,c);
        if c<>0 then writeln('не число')
      until c=0;
 
     if a>=b then
     writeln('A<B быть не может');
  until a<b;
 
  repeat
 
    repeat
      writeln('введите E');
      readln(s);
      val(s,e,c);
      if c<>0 then writeln('не число')
    until c=0;
 
    if e<=0 then
    writeln('E больше 0 и меньше 1')
  until (e>0) and (e<1);
 
  repeat
 
    repeat
      writeln('введите N');
      readln(s);
      val(s,n,c);
      if c<>0 then writeln('не число')
    until c=0;
 
    if n<=0 then
     writeln('N должно быть больше 0');
  until n>0;

function Check(str,ind,y):Integer;
var x,z:Integer;
begin
 val(str,x,c);
 z:=0;
 if (c<>0) then writeln('не число')
  else
   case ind of
    'A': if x<=0 then  writeln('A должно быть больше 0');
    'B': if x>y   then  writeln('A<B быть не может');
    'E': if x<=0 then  writeln('E больше 0 и меньше 1')
    'N': if x<=0 then  writeln('N должно быть больше 0');
    else z:=1;
   end;
end;

 repeat
  writeln('введите A');
  readln(s);
 until Check(s,'A',0)=0;
 val(s,a,c);
 
 repeat
  writeln('введите B');
  readln(s);
 until Check(s,'B',a)=0;
 val(s,b,c);
 
 repeat
  writeln('введите E');
  readln(s);
 until Check(s,'E',0)=0;
 val(s,e,c);
 
 repeat
  writeln('введите N');
  readln(s);
 until Check(s,'N',0)=0;
 val(s,n,c);