как вариант:
var
a, b, h : integer;
begin
a := readInteger('введите a = ');
b := readInteger('введите b = ');
h := readInteger('введите h = ');
writeln('площадь поверхности стен равна ', 2*a*h+2*b*h);
end.
Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.
Ну учиться Пользоваться компьютером
У крота больше всего развито осязание, т. к. он ведёт подземный образ жизни. Особенно хорош крот-звездонос.