Повідомлення закодовано шифром цезаря зі зсувом на 3 літери праворуч. декодувати:

1. дзузфзпа

2. жсґус тсесжг

3. ргдьгоарйм укн усїтсьгдфв

іть будь ласка!

Program srednee;
var
  a, b, c:integer;
  sa:real;
begin
write ('Введите а='); readln (a);
write ('Введите b='); readln (b);
write ('Введите c='); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
  begin
          a:= sqr(a); writeln ('Квадрат а=', a);
          b:= sqr(b); writeln ('Квадрат b=', b);
          c:= sqr(c); writeln ('Квадрат c=', c);
  end else begin
      if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
        begin
          a:= a+10; writeln ('а+10=', a);
          b:= b+10; writeln ('b+10=', b);
          c:= c+10; writeln ('c+10=', c);
        end else begin
          sa:=(a+b+c)/3;
          write ('Среднее арифметическое =', sa);
          end
      end
end.

And (энд) - И
end (энд) - конец
nil (нил) - нуль
set (сет) - множество
array (эрей) - массив
file (файл) - файл
not (нот) - не
then (зен) - то
begin (бегин) - начало
for (фo) - для
of (оф) - из
to (ту) - увеличивая до
case (кейс) - вариант
while (вайл) - пока
downto (даунту)- уменьшая до
record (рикод) - запись
with (вис) - с
function (фанкшн)- функция
or (ор) - или
type (тайп) - тип
const (конст) - константа
go to (гоу ту)- переход на
packed (пэкт) - упаковать
until (антил) - до
div (див) - разделить
if (иф) - если
procedure() - процедура
var (вар) - переменная
do (ду) - выполнить
in (ин) - в
program (програм) - программа
else (элс) - иначе
mod (мод) - модуль
repeat (рипит) - повторять