Помогите пожалуйста, cрочно!!! Составить блок-схему.
program primer6;
uses crt;
x:integer;
begin
clrscr;
readln(x);
if x mod 2=0 then writeln ('да')
else writeln ('нет')
end.