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

Nado vvesti minimum 3 znaka chislo');
end
else
begin
kvadrat:=numbers[i]*numbers[i];
udvsumma:=2*(numbers[1]+numbers[2]);
writeln('kvadrat pervogo=', kvadrat);
writeln('udvoennaya summa poslednih=', udvsumma);
if(udvsumma<kvadrat) then
writeln('Vse verno, udvoennaya summa menshe')
else
writeln('ne verno, udvoennaya summa ne menshe');

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