ответ: var a:integer;
begin
Writeln ('Введите возраст') ;
Readln (a);
If (a>=4) and (a<11) then
Writeln ('Да')
else
Writeln ('Нет') ;
end
Объяснение:
ответ: var a:integer;
begin
Writeln ('Введите возраст') ;
Readln (a);
If (a>=4) and (a<11) then
Writeln ('Да')
else
Writeln ('Нет') ;
end
Объяснение: