program PER_AND_PLOSH;
var
a,b:integer;
function per(a,b:integer):integer;
begin
per:=a+b+a+b;
end;
function plos(a,b:integer):integer;
plos:=a*b;
writeln('Введите длины сторон прямоугольника:');
readln(a,b);
write('Периметр равен ',per(a,b),', а площадь равна ',plos(a,b));
end.
program PER_AND_PLOSH;
var
a,b:integer;
function per(a,b:integer):integer;
begin
per:=a+b+a+b;
end;
function plos(a,b:integer):integer;
begin
plos:=a*b;
end;
begin
writeln('Введите длины сторон прямоугольника:');
readln(a,b);
write('Периметр равен ',per(a,b),', а площадь равна ',plos(a,b));
end.