Построить блок - схему

[DeadAir]

Сделайте пожалуйста блок - схему к задаче
program test;
var k:integer;
begin
writeln('Enter k >10');
readln(k);
if(k>10) then
begin
if (k mod 10 + k div 10 =7) then writeln('Sum is equ 7')
else
writeln('Sum is not equ 7');
end
else
writeln('Wrong k!');
end.

[ROMA2PVT]

Вот блок схема.Немного подправьте.Ток ваша программа не только с двузначными числами работает.Введите 100 либо большее число и сразу поймёте.