построить блок-схему для задачи: Даны 3 целых числа. Вывести на экран те, которые являются четными

program prokopa
Var n,m,r:integer;
Begin
write('Введите 1-ое число: ');readln(n);
write('Введите 2-ое число: ');readln(m);
write('Введите 3-ое число: ');readln(r);
if n mod 2 = 0 then write(n:4);
if m mod 2 = 0 then write(m:4);
if r mod 2 = 0 then write(r:4);
End.