Вычислить значение выражения

uses crt;
var
  a,b,c,d,p:integer;
  ch:char;
procedure pr;
begin
  ClrScr;
  write('Введите длину: ');
  readln(a);
  write('Введите ширину: ');
  readln(b);
  p:=a+a+b+b;
  writeln('Периметр равен: ',p);
  writeln('Для продолжения нажмите Enter');
  readln;
end;
procedure tr;
begin
  ClrScr;
  write('Введите сторону а: ');
  readln(a);
  write('Введите сторону b: ');
  readln(b);
  write('Введите сторону c: ');
  readln(c);
  p:=a+b+c;
  writeln('Периметр равен: ',p);
  writeln('Для продолжения нажмите Enter');
  readln;
end;
procedure pro;
begin
  ClrScr;
  write('Введите сторону а: ');
  readln(a);
  write('Введите сторону b: ');
  readln(b);
  write('Введите сторону c: ');
  readln(c);
  write('Введите сторону d: ');
  readln(d);
  p:=a+b+c+d;
  writeln('Периметр равен: ',p);
  writeln('Для продолжения нажмите Enter');
  readln;
end;
begin
  while ch<>#52 do begin
    ClrScr;
    writeln(' Вычислить периметр:');
    writeln('1. Прямоугольника');
    writeln('2. Треугольника');
    writeln('3. Произвольного четырехугольника');
    writeln('4. Выход');
    ch:=readkey;
    case ch of
      #49:pr;
      #50:tr;
      #51:pro;
    end;
  end;
  exit;
  readln;
end.