Составить расчетную программу в турбопаскале: предположить по возрасту ребенка,…

varage: integer; beginwriteln ('Введите возраст: '); read (age); case age of1… 6: writeln ('Возможно, вундеркинд'); 7: writeln ('Возможно, ребенок в 1-ом классе'); 8: writeln ('Возможно, ребенок во 2-ом классе'); 9: writeln ('Возможно, ребенок в 3-ом классе'); 10: writeln ('Возможно, ребенок в 4-ом классе'); 11: writeln ('Возможно, ребенок в 5-ом классе'); 12: writeln ('Возможно, ребенок в 6-ом классе'); 13: writeln ('Возможно, ребенок в 7-ом классе'); 14: writeln ('Возможно, ребенок в 8-ом классе'); 15: writeln ('Возможно, ребенок в 9-ом классе'); 16: writeln ('Возможно, ребенок в 10-ом классе'); 17… 18: writeln ('Возможно, ребенок в 11-ом классе'); else writeln ('Это не ребенок=) '); end; end.