Написать программу в паскале и составить алгоритм. вводится число х, определить нечетное оно и кратно ли 7. вывести сообщение на экран.

Var x:integer;
begin
writeln('x=');
readln(x);
if (x mod 7=0) and ( x mod 2<>0) then writeln(' cislo neciotnoe i kratno semi ')
else 
writeln('cislo ciotnoe i nekratno semi ');
readln;
end.