Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. пример: введите номер месяца: 5 весна. пример: введите номер месяца: 15 неверный номер месяца. сос!

Нарисовал таблицу: по вертикали фамилии, по горизонтали - специальности. начал вычеркивать: щапов - не пилоты, поэтому ставлю "-". петров - не штурманы - тоже минусы. щапов и сошин - не радисты- еще 2 минуса. сигов и щапов - не синоптики - еще 2 минуса (ну вот тут конечно натяжка с сыном) . петров и щапов - не бортмеханики - еще 2 минуса. у щапова осталась одна клетка - штурман. ставлю в нее крест, а остальным в колонке штурман - нули (ну можно тоже минусы) . далее - и сигов - не синоптики - еще минусы (кстати - тут проверка натяжки по сыну в санатории) . у остается 2 клетки- радист и бортмеханик, но он - не радист, потому что занимается боксом, т. е. он - бортмеханик. ставим крест ему в бортмеханик и 0 - в клетку радист. сошину и сигову - нули в клетку бортмеханик. сигов - боксер, поэтому - не радист. минус в клетку и у него остается только клетка пилот. нули в клетку пилот петрову и сошину. в столбце радист осталась свободная клетка только у петрова. стало быть - сошин - синоптик

Program treyg; uses crt; var x1,y1,x2,y2,x3,y3 : integer; a,b,c,s,p : real; begin write('введите координаты первой точки: '); readln(x1,y1); write('введите координаты второй точки: '); readln(x2,y2); write('введите координаты третьей точки: '); readln(x3,y3); a: =sqrt(sqr(x1-x2)+sqr(y1-y2)); b: =sqrt(sqr(x2-x3)+sqr(y2-y3)); c: =sqrt(sqr(x3-x1)+sqr(y3-y1)); if ((a+b)> c) and ((b+c)> a) and ((c+a)> b) then writeln('данные координаты не могут являться вершинами треугольника') else begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника ',s); end end.