Ответ: только что был этот вопрос: сделал такую же программу
program Test;
var
n, a, i, nmin, amin: Integer;
begin
Write ('Количество чисел: ');
ReadLn (n);
nmin := 1;
amin := MaxInt;
WriteLn ('Введите ', n, ' чисел:');
for i := 1 to n do begin
ReadLn (a);
if a < amin then begin
amin := a;
nmin := i;
end;
end;
WriteLn ('Вывод: ', amin, ' ', nmin);
ReadLn;
end.
Ninjas = input()
ninjas = int(ninjas)
if ninjas < 50 and ninjas > 30:
print ("Их очень много")
elif ninjas < 30 and ninjas > 10:
print("Будет непросто, но я с ними расправлюсь")
else:
if ninjas < 10:
print("Я выиграю этих ниндзя !")
Uses Crt;
var
n,d1,d10,d100:integer;
begin
ClrScr;
Write('n='); Read(n);
d1:=n mod 10; d100:=n div 100; d10:=(n div 10) mod 10;
if d1=9 then d1:=0 else Inc(d1);
if d10=9 then d10:=0 else Inc(d10);
if d100=9 then d100:=0 else Inc(d100);
Writeln(d100,d10,d1);
ReadKey
end.
(144)16 =4*10(0)+4*10(1)+1*10(2) = (144)10;