как вариант:
var
a, b, h : integer;
begin
a := readInteger('введите a = ');
b := readInteger('введите b = ');
h := readInteger('введите h = ');
writeln('площадь поверхности стен равна ', 2*a*h+2*b*h);
end.
1. ручка.
2. принтер.
~~~~~~~~~~~~~
uses crt;
var a,b,c,max:integer;
begin
writeln('a,b,c');
readln(a,b,c);
if a>b then max:=a;
if b>c then max:=b;
if c>a then max:=c;
writeln('max=',max);
<span>end.</span>
<span>алгоритм вычисления произведение целых чисел</span>
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()
{</span><span>int a,b,k=1,n=1;</span><span>cin >> a >> b;</span>
<span>for (int i = 0; i < n; ++i)
{if ((k % a == 0) && (k % b == 0)) {cout << k; return 0;} else k++; n++;}</span>
}
<span>
</span>