Вопрос несколько некорректен: на каком языке программирования? Вот, например, на Паскале:
Program P1;
uses crt;
var a, b, P, S: real;
begin
clrscr;
write ('Введите 1-ю сторону прямоугольника: ');
readln (a);
write ('Введите 2-ю сторону прямоугольника: ');
readln (b);
P:=2*(a+b);
S:=a*b;
writeln ('Периметр прямоугольника равен: ', P);
write ('Площадь прямоугольника равна: ', S);
readkey;
end.