Дано двузначное натуральное число.верно ли что квадрат суммы его цифр больше самого числа. решить в pascal

program z1;

uses crt;

var a : integer;

begin

  clrscr

  readln(a);

  if (sqr(a mod 10) + sqr(a div 10))   > a then

    writeln('верно')

  else

    writeln('неверно');

end.

program qq;

uses crt;

var a,x,y: byte;

begin

clrscr;

readln(n)

x: =trunc(a/10);

y: =mod(a);

if sqr(x+y)> a then writeln('верно') else writeln('неверно');

readln

end.

ДМ - Убийство без причины.

ДБ - Убийство с машины (машиной).

СК - Спавн килл, т.е. убийство при появлении.

ТК - "Team Kill" - Убийство своих.

РП - "Role Play"- Игра по ролям где каждый должен соблюдать свою роль.

МГ - "Meta Gaming" - Использование информации из реального мира в игровой

чат(сокращенно: ООС в ис ).

ГМ - "God Mood" - Бог мод - т.е. режим бога.

ПГ - "Power Gaming" - Изображение из себя героя,например когда у тебя нет оружия и ты идешь на человека у которого оно есть , или например драка 5 против одного.

РК - Возвращение на место где тебя убили.

БХ - "Бани Хоп"- нонРП бег с прыжками ( shift+space )

Все выше перечисленные выше термины необходимо писать в скобках, пример: (( ДМ- убийство без причины )). На серверах вроде #AdvanceRP , #DiamondRP , #SampRP, такие скобки можно вызвать прописав в чат "или".

УК -"Уголовный Кодекс"

АК - "Академический Кодекс"

ЗЗ - "Зеленая Зона". Общественные места-площадь у мэрии, вокзалы, больницы и т.п. (В этой зоне запрещено стрелять)

ответ:алг т;

нач

Сместится в точку(2,1);

Опустить перо;

Сместится на вектор(0,2);

Сместится на вектор(1,0);

Сместится на вектор(-2,0);

кон.

алг я;

нач

Сместится в точку(1,1);

Опустить перо;

Сместится на вектор(1,1);

Сместится на вектор(0,1);

Сместится на вектор(-1,0);

Сместится на вектор(0,-1);

Сместится на вектор(1,0);

Сместится на вектор(0,-1);

кон.

алг с;

нач

Сместится в точку(3,1);

Опустить перо;

Сместится на вектор(-2,0);

Сместится на вектор(0,2);

Сместится на вектор(2,0);

кон.

Объяснение: на таком примере делай все буквы