составьте программу печати таблицы температур по цельсию от 0 до  градусов с шагом в один градус и их эквивалентов по шкале фаренгейта используя для перевода формулу tF=9tc/5+32

var  max, i: integer;  begin  readln(max);  for i := 0 to max do    writeln(i:3, chr(0176), 'C | ', 9 * i / 5 + 32, chr(0176), 'F');end.Элементарная домашка... Не знаю, прочтёт ли это кто-нибудь, но...Считываем верхнюю границу вывода (ибо в условии с ней заминка), а затем в столбик выводим... chr() возвращает символ по коду, а 176 - код градуса