В Turbo Pascal. Задание: Даны названия 5 факультетов. Определить, имеется ли среди них "КИВ" и напечатать об этом соответствующее сообщение.

А как именно вы эти строковые переменные задаёте, что они у вас не получаются?

И что Вы имеете ввиду под "КИВ" Это подстрока которую надо найти?

Переменные (то есть наименования факультетов) надо вводить с клавиатуры, а название факультета это и есть подстрока, которую и надо найти

var s : string;
...
readln(s);

в чём проблема?

Ох, да, не дописал, забегался) В общем, вот такую програмку написал:

program ty ;

uses CRT;
var s:string;
i: integer;
res: boolean;
BEGIN
clrscr;
readln(s);
for i:=1 to length(s)-2 do if
(s[i]='К')and(s[i+1]='И')and(s[i+2]='В') then
res:=true;
if res=true then writeln('yes') else writeln('nope');
readkey;
END.

Только у меня получается, что вводить можно 1 название, а как для 5, придумать не могу

Добавлено через 16 мин.
Друг очень сильно помог, в итоге программа есть!) Все тоже самое, но как я мог забыть про циклы для ввода) Спасибо, за то, что пытались помочь