написать программу  выводящую на экран слова к которым необходимо подобрать слова синонимы и слова антонимы.Если к ним нельзя подобрать ан/син,написать-таких слов нету.
турбо паскаль

program antonim;var s1,s2:string; begins1:='горячий';{Наше слово}write ('Введите антоним (с маленькой буквы) к слову ',s1,': ');readln (s2);{Ввод антонима}if (s2<>'холодный') or (s2<>'прохладный') then writeln ('Таких слов нету.'); {Проверка условия}end.