Исполнитель Шифровальщик из одной цепочки символов получает новую цепочку следующим образом:

Если цепочка начинается с согласной буквы, Шифровальщик переставляет первую букву в конец слова, если же цепочка начинается с гласной, то меняет местами первую и вторую буквы.

Этот алгоритм дважды применили к слову ПЕЧКИН.
Какое слово получилось?

1.
var a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a-10 else a:=a+10;
writeln('a = ',a);
end.

Пример:
Введите число: 5
a = -5

2.
var a,b,p:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a*b<0 then p:=-2*a*b else p:=3*a*b;
writeln('p = ',p);
end.

Пример:
Введите два числа: 
-3 -8
p = 72

3.
var a,b,r:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a>b then r:=a-b else r:=b-a;
writeln('r = ',r);
end.

Пример:
Введите два числа: 
25 48
r = 23

4.
var r:integer;
begin
writeln('Введите рост: ');
readln(r);
if r>180 
 then writeln('высокий')
 else if r=180 then writeln('нормальный') else writeln('низкий');
end.

Пример:
Введите рост: 
160
низкий

Var
  s:string;
  n:integer;
begin
  Write('Привет, как тебя зовут? '); Readln(s);
  Writeln(s,', ты будешь сдавать экзамен по информатике ?');
  Write('Если да, введи 1, если нет, введи 0: '); Read(n);
  if n=0 then Writeln(s,', ты не будешь сдавать экзамен по информатике.')
  else Writeln(s,', ты будешь сдавать экзамен по информатике.')
end.

Пример
Привет, как тебя зовут? Zucoven
Zucoven, ты будешь сдавать экзамен по информатике ?
Если да, введи 1, если нет, введи 0: 1
Zucoven, ты будешь сдавать экзамен по информатике.