Используя условный оператор if написать конструкцию которая проверяет возраст и выводит соответствующие значения по такому словию:

Если возраст больше либо равен 18 - вывести сообщение "ok"
иначе если возраст больше 14 - вывести сообщение "with parents"
иначе - вывести сообщение "no"

Var a:integer;BeginReadln(a);If a>=18 then. //т.к. возраст людей возможно надо ещё написать (a<=100)Writeln("ok");If (a>14) and (a<=17) thenWriteln("with parents");If a<14 thenWriteln("no");End.