начало
нц
пока не слева свободно
закрась вверх
кц
закрась
пока справа свободно
двигайся вправо
var a:integer;beginreadln (a);repeata:=a+1;until (a mod 2=0);writeln (a);end.