Известна сумма номеров страниц, определить номер страницы. (оператор цикла while, paskal)

Var a,b,a1,b1: real; begin   readln(a,b);   if a = b then writeln('числа равны')   else       if a> b then begin           a1: =2*a*b; b1: =(a+b)/2;           a: =a1; b: =b1;           writeln('a = ',a,' b = ',b)       end       else begin           b1: =2*a*b; a1: =(a+b)/2;           a: =a1; b: =b1;           writeln('a = ',a,' b = ',b);       end;   end.  

Для программы обычно  необходимы входные значения и соответственно то, что она возвращает. вот, если она принимает с каждой новой строки (ввел длину одной стороны  - enter) по одному значению. на выходе она отдаст "true" - истина (если хоть  две стороны равны) или "false" - ложь. var a, b, c: integer; begin readln(a); readln(b); readln(c); if (a=b) or (a=c) or (c=b) then writeln('true - trikutnik rivnobedrenyj') else writeln('false - trikutnik ne rivnobedrenyj'); end. код полностью рабочий, только что проверен. текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. писать только на раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in english. все знаки препинания и другие символы  необходимо переписать в точности, не забывайте.