Версия для печати темы

PROGRAM zadacha1;
  uses crt;
  VAR N:integer;a,b,c:integer;
  BEGIN
  clrscr;
  WRITE('Vvedite chislo');
        READLN(N);
        while   n<100 do
        begin
         WRITEln('Oshibka. Vi Vveli slishkom malenikoe chislo ');
         WRITEln('Vvedite chislo');
        READLN(N);
        end;
        while    n>999 do
         begin
         WRITEln('Oshibka.Vi Vveli slishkom bolishoe chislo');
  WRITEln('Vvedite chislo');
        READLN(N);
        end;
        a:=n div 100 mod 10;
        b:=n div 10 mod 10;
        c:=n mod 10;
        IF (a=b)  or (a=c) or (c=b)
          THEN
          WRITELN('Est povtor')
          ELSE
          WRITELN('Net povtorov');
   READLN;
  END.