Program Anketa; var
Year:integen;
Begin
Writeln('сколько вам лет?');
write('Year');
readln(Year);
writeln(Вам ',Year,' лет.);
end.
что не так в анкете ?​

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку