У исполнителя Квадратор две команды, которым присвоены номера:
1. возведи в квадрат
2. прибавь 3
Первая из них возводит число на экране во вторую степень, вторая
увеличивает его на 3.
Составьте алгоритм получения из числа 1 числа 25, содержащий не более
5 команд. В ответе запишите только номера команд.
(Например, 12221 – это алгоритм:
возведи в квадрат
прибавь 3
прибавь 3
прибавь 3
возведи в квадрат,
который преобразует число 2 в 169.)
Если таких алгоритмов более одного, то запишите любой из них.

program r; uses crt; var a, c, d, l, k: string[50]; b: integer; beginwriteln('! '); writeln('давай познакомимся! как тебя зовут? '); readln(a); writeln(' приятно, ',a,'! ','а меня зовут евгений.'); writeln('сколько тебе лет? '); readln(b);

if (a = 'антон' and b=15) thenwriteln(' через 50 лет тебе уже будет 65 лет, а звать тебя будут не антон, а дед антон');

writeln('мне тоже,' b, '! '); writeln('какую музыку ты любишь слушать? '); readln(c); writeln('ничего себе! да у нас похожие вкусы! ведь я тоже люблю слушать ', c); writeln('какое время года ты любишь? '); readln(d); writeln('я тоже обожаю ',d); writeln('какой твой любимый цвет? '); readln(l); writeln('мне кажется, мы во многом это и мой любимый цвет.'); writeln('кто ты по знаку зодиака? '); readln(k); writeln('надо же! я тоже ',k,'.'); writeln('было приятно познакомиться и поговорить,' a,'! пока! '); end.

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

program av;

var a,b,c,d,e: integer;

begin

writeln('введите числа');

readln(a,b,c) ;

d: =0 ;

if   a mod 2 = 0

then d: =d+1;

if   b mod 2 = 0

then d: =d+1;

if   c mod 2 = 0

then d: =d+1;

  e: =3-d

writeln(d,'количество четных') ;

  writeln(e,'количество не четных') ;

end. 

создаём два массива чисел, упорядочиваем числа в массивах, сравниваем и выводим.