Var
x, sum: integer;
begin
read(x);
while(x > 0) do
begin
if(x mod 10 <= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.
Program x2;
var n:integer;
begin
Write('Введите n, n = ');
Readln(n);
Writeln('Сумма 1-ой и 4-ой цифр = ',n div 10000 + (n mod 100) div 10,' , произведение 2-ой и 5-ой = ', ((n mod 10000) div 1000) * (n mod 10)); // это продолжение строчки сверху
<span>end.</span>
С блокнота попробуй открыть, если нет то хз
Ответ:
ответ 20путь есть.....из города А в город И