Решите ну ктонибуть уже устал ждать

Написать програму на языке паскаля с использование цикла с пердусловием для решении следущей задачи:

дано натуральное как минимум трёхзначное число.Определить,верно ли ,что удвоеная сумма друх его послеследних цифр меньше квадрата первой цифры.

Проверено в турбопаскаль 7

var ost,n:longint; i,kvadrat, udvsumma:integer; numbers:array[1..10] of integer;beginwriteln('-------------------------------------');write('input n:');readln(n);writeln('vi vveli:',n);ost:=n;i:=0;while (ost>0) dobegin i:=i+1; numbers[i]:=ost mod 10; ost:=ost div 10;

end;if(i<3) thenbeginwriteln('Obman!!! Nado vvesti minimum 3 znaka chislo');endelsebeginkvadrat:=numbers[i]*numbers[i];udvsumma:=2*(numbers[1]+numbers[2]);writeln('kvadrat pervogo=', kvadrat);writeln('udvoennaya summa poslednih=', udvsumma);if(udvsumma<kvadrat) thenwriteln('Vse verno, udvoennaya summa menshe')elsewriteln('ne verno, udvoennaya summa ne menshe');

end;writeln('press enter');readln;end.