Составить программу нахождения площади прямоугольника, если известны его стороны

S=длина×широта Площадь=(длина+широта)×2

var a, b, S, : real;
begin
   write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  s := a * b; 
 write('Площадь прямоугольника -- ', s, ';
 end.

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var t:=ReadAllText('Pascal.txt');
  var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
  var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
  for var i:=0 to c1.Length-1 do
    t:=t.Replace(c1[i],c2[i]);
  WriteAllText('Pascal.txt',t);
  Writeln('Работа завершена');
end.

Пример
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена

# Python 3.6.1

S = input()
B = input()
C = [int(i) for i in input().split()]
A = input()

for m in [i for i in set([j for j in range(len(S))]).difference(C)]:
   if S[m] in B.split():S =  S[:m] + A[0] + S[m+1:]
print(S)



// Pascal

Var
   S:string[100];
   B:string[50];
   C:array[0..100] of byte;
   A:char;
   j,m:byte;
   L:boolean;
Begin
ReadLn(S);
ReadLn(B);
j:=0;
Read(A);
While A <> #13 do
   Begin
   Read(C[j]);
   C[j]:=C[j]+1;
   j:=j+1;
   Read(A);
   End;
ReadLn();
Read(A);
For m:= 1 to Length(S) do
    Begin
    L:=true;
    For j:= 0 to j do
        if C[j] = m then L:=false;
    if L then
       if pos(S[m],B) <> 0 then S[m]:=A;
    End;
WriteLn(S);
End.