1.Дешифровать сообщение:
Бирои имч еыеес витсч арзки танет есарл лпюсп мотоо еипнф кйаои крслт мн
2. Дешифровать сообщение:
тиооско нцрпоед иявдттж афэелиа ткокнбв еапанъг уитриоб
3. Дешифровать сообщение:
икинорткелэоидаржделлок
Напишите методы.

австрия - вена

бельгия - брюссель

болгария - софия

венгрия - будапешт

испания - мадрид

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

трех сажаешь по углам ограждения , двух в центр