ПОМОГИТЕ, ПОЖАЛУЙСТА!! Дано натуральное число. Верно ли, что сумма его чисел больше k, а само число четное?

спасибо

А в цикле while можешь сделать?

Program fd;var a,k:integer;beginWriteln('Ввести чётное натуральное число a');Readln(a);Writeln('Ввести число k');Readln(k);Writeln('',a div 100);Readln(d);Writeln('',a mod 100);Readln(c);if d+c>k then Write('Утверждение верно!'); elseif d+c<k then Write('Утверждение неверно!'); end.Только для двузначного т.к. не имею на компьютере паскаль