Нахождение площади
var a,b,s:integer;
begin
writeln('Введите A и B: ');
readln(a,b);
s:=a*b; //формула
writeln('Площадь прямоугольника равна: ',s); 
end.

Нахождение периметра

var a,b,p:integer;
begin
writeln('Введите A и B: ');
readln(a,b);
p:=2*(a+b); //формула
writeln('Периметр прямоугольника равен: ',p); 
end.

На паскале

Периметр:

{
int a, b;
cin >> a>>b;
a=(a*b)*2;
cout << a <return 0;
}

Площадь:

{
int a, b, c;
cin >> a>>b>>c;
a=a*b*c;
cout << a <return 0;
}