Попробуйте. Конечно, можно использовать встроенную в PascalABC.Net функции min(a, b), для определиня минимального числа. Но чтобы наверняка не было бы проблем, можно пойти стандартным путем.
Объяснение:
program YourTitle;
var a,b,c,d, min:integer;
BEGIN
writeln('Введите 4 целых числа через пробел или Enter -> ');
readln(a,b,c,d);
min:=a;
if b<a then min:=b;
if c<b then min:=c;
if d<c then min:=d;
writeln('Меньшее из чисел = ',min);
min:= min * 5;
writeLn('Увеличенное в 5 раз: ', min);
END.
var n,i,l:integer;
res:real;
Begin
read(n);
while n>0 do begin
i:=n mod 10;
n:=n div 10;
if i mod 2 <> 0 then begin
res:=res+i*exp(l*ln(10));
l:=l+1;
end;
end;
writeln(res);
End.