Дана сторона квадрата а. знайдить його периметр P=4 a

var

a,b:string;

i:integer;

begin

readln(a);

readln(b);

For i:=1 to Length(a) do

 begin

 if (a[i]='3') then

 Begin

   Delete(a,i,1);

   InSert('e',a,i);

 End;

 if (a[i]='0') then

 Begin

   Delete(a,i,1);

   InSert('o',a,i);

 End;

 if (a[i]='1') then

 Begin

   Delete(a,i,1);

   InSert('i',a,i);

 End;

 if (a[i]='7') then

 Begin

   Delete(a,i,1);

   InSert('t',a,i);

 End;

 if (a[i]='4') then

 Begin

   Delete(a,i,1);

   InSert('a',a,i);

 End;

 if (a[i]='5') then

 Begin

   Delete(a,i,1);

   InSert('s',a,i);

 End;

 end;

if b in a then

 writeln('YES')

else

 writeln('NO')

end.

// Форматирование вывода вещественного числа можно поставить как нравится, я выбрал 3:3

// Считал, что доля с участием нуля равна 0%

program Calc;

var a, b: integer;

begin

 write('Введите a: ');

 readln(a);

 write('Введите b: ');

 readln(b);

 writeln(a, '+', b, '=', a + b);

 writeln(a, '-', b, '=', a - b);

 writeln(a, '*', b, '=', a * b);

 if (b = 0) then begin

   writeln(a, '/', b, ' не определено');

   writeln(a, ' составляет 0% от числа ', b);

 end

 else begin

   writeln(a, '/', b, '=', (a / b):3:3);

   writeln(a, ' составляет ', (a / b * 100):3:3, '% от числа ', b);

 end;

 if (a = 0) then

   writeln(b, ' составляет 0% от числа ', a)

 else

   writeln(b, ' составляет ', (b / a * 100):3:3, '% от числа ', a);

end.