Алгоритм с ветвлением

Var x: integer;

begin

write('введите число')

read(x);

if x = 10

         then  write('x равно 10')

         else  write('x не равно 10 ');

end.

Видео