1.
var a, b: real;
begin readln(a, b); writeln('P = ', 2 * a + 2 * b); writeln('S =', a * b); writeln('D =', sqrt(sqr(a) + sqr(b)));end.
2.
var a: real;
begin readln(a); writeln(a * 2.54);end.
1.
var
a, b: real;
begin
readln(a, b);
writeln('P = ', 2 * a + 2 * b);
writeln('S =', a * b);
writeln('D =', sqrt(sqr(a) + sqr(b)));
end.
2.
var
a: real;
begin
readln(a);
writeln(a * 2.54);
end.