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>
Листинг программы и скриншот результата в приложениях
Var a, b, c:integer;
function sravnenie(a, b, c:integer):boolean;
begin
sravnenie:=false;
if a<b then
begin
if b<c then sravnenie:=true;
end;
end;
begin
writeln('Введи 3 числа');
readln(a, b, c);
if sravnenie(a, b, c) then writeln('Да') else writeln('Нет');
end.