Напишите программу на паскале ввода с клавиатуры двух чисел и вывода на экран числа , чей квадрат больше

Var     a,b: longint; begin     readln(a,b);     if sqr(a)> sqr(b) then writeln(a)     else       if sqr(a)< sqr(b) then writeln(b)       else writeln('квадраты чисел равны') end.

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 function bintooct(s: string): string; // переводит двоичную триаду в восьмеричную цифру begin   case s of   '000': result: ='0';   '001': result: ='1';   '010': result: ='2';   '011': result: ='3';   '100': result: ='4';   '101': result: ='5';   '110': result: ='6';   '111': result: ='7';   end end; begin   var s2: =readlnstring('введите целое двочное число');   var k: =s2.length mod 3;   if k< > 0 then s2: =(3-k)*'0'+s2; // дополнить до кратной 3 длины   var s8: ='';   for var i: =1 to s2.length div 3 do       s8: =s8+bintooct(copy(s2,3*i-2,3));   writeln(s8); end. пример введите целое двочное число 10101100001 2541

Да вообщем-то стандартный алгоритм поиска одной фальшивки из 9. только тут извесно легче фальшивка или тяжелее 1) 3 кучки по 3. взвешиваем 2кучки, одна отложена * равно - тогда фальшивка в отложенной куче   на чашу с приклееной ложем одну сомнительную   на вторую чашу ложим одну сомнительную и одну не фальшивую   если равно, то отложенная, если нет то сомнительная из более легкой чаши   *не равно, если сомнительная(более легкая) кучка  с приклееной, тогда одну монету на другую чашу, одну откладываем. при равно  - фальшивка отложена, при неравно - более легкая ,если сомнительная куча без приклееной, то действуем как при равно после первого взвещивания писать долго, на самом деле все легко