Удвоить трѐхзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. если введѐнное число не трѐхзначное, вывести сообщение об ошибке.(в паскале)

program test; var      num, n : longint;       i : integer;       f : boolean; begin      readln(num);       n : = num;       f : = false;       i : = 0;       repeat            if n mod 10 = 1 then                  f : = true;             n : = n div 10;             i : = i + 1;       until n = 0;       if i < > 3 then begin            writeln('chislo ne treh-znachnoe.');       end      else begin            if f then                  num : = num * 2            else begin                  num : = sqr(num); end;             writeln('rezultat: ', num)      end; end.