Сережа-Митя-Толя-Костя-Юра вот в таком порядке стояли ребята!!!!
Var n: integer;
function oct(x: integer): string;
var s: string;
begin
while x > 0 do
begin
s := IntToStr(x mod 8) + s;
x := x div 8;
end;
Result := s;
end;
begin
write('Введите число: ');
readln(n);
writeln('Восьмиричная форма: ', oct(n))
<span>end.</span>
4*2=8
Но если нужна программа, то вот:
var
a: <em>word</em>;
b: <em>byte;</em>
begin
readln(a);
b := a mod 100 div 10;
a := a div 1000 mod 10;
writeln(a, ' * ', b, ' = ', a * b);
end.
Класс '' виста ''' 'натура