rDelend

Дана задача: найти сумму четных цифр числа и составить новое число, поменяв в данном числе порядок цифр на обратный
При её решении разбил на две части:
найти сумму четных цифр числа:
Var s,n:integer;
Begin
write('Введите число: ');readln(n);
s:=0;
While n<>0 do
Begin
if n mod 10 mod 2 = 0 then s:=s+n mod 10;
n:=n div 10;
End;
if s<>0 then writeln('Сумма четных цифр: ',s)
else writeln('Нету четных цифр в числе');
readln;
End.

и поменять порядок цифр на обратный:
var
k, n: integer;

begin
write('Введите число ');
readln(n);
k := 0;
repeat
k := k * 10 + (N mod 10);
N := N div 10;
until n = 0;
write('После перестановки ');
Writeln(k);
end.

Помогите пожалуйста объединить это в одну программу, чтоб сразу, никак не получается чтоб вторая задача брала решение первой в переменную.

rDelend

Вопрос решил =) Стоило только немного поразмыслить =)

rDelend

Кому интересно вод код:
var s,n:longint;
begin
write ('‚ўҐ¤ЁвҐ **вга*«м*®Ґ зЁб«®: '); readln (n);
s:=0;
repeat
if n mod 10 mod 2 = 0 then s:=s+n mod 10;
n:=n div 10;
until n=0;
repeat
write (s mod 10);
s:=s div 10;
until s=0;
writeln;
readln;
end.