Дана программа. Введи данную программу в Паскаль.

program perimetr_1;
var
a, b,p:real;
begin
a:= 6;
b:= 13;
p:=2*(a+b);
writeln('p=',p:4:0)
end.

Полученный результат:
=
.

Результат: p=38.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

закодированный текст: byck is my dog.