Var a,k,b,c:longint;
begin
read (a);
k:=a div 100;
b:=a div 10 mod 10;
c:=a mod 10;
if ((k>b) and (k>c)) then writeln (k) else
if ((b>k) and (b>c)) then writeln (b) else
if ((c>b) and (c>k)) then writeln (c);
<span>end.</span>
Условия состоящие в ещё одно условие называются вложенными.
Например цикл for в for:
1)for i:=1 to 10 do
2)for a:=1 to 10 do
writeln(i+a);
2 цикл for является вложенным,так же его можно назвать внутренним,а 1 цикл for внешним.
Хей, можешь уточнить в чём заключается задание поподробнее, а то не очень понятно.
Var i:integer;
n: array [1..8] of integer;
BEGIN
For i:=1 to 8 do
begin
Writeln('Vvedite element massiva');
Read(n[i]);
end;
Writeln;
For i:=8 downto 1 do
Writeln(n[i]);
Readln;
Readln;
END.