Var s:array[1..100]:string;
i:integer;
begin
write('введите слово);
read(s);
for i:=1 to lenght(s) do
if s[i]+s[i+1]+s[i+2] = 'рак' then
writeln('da') else writeln('net')
end.
Письменный документ-текстовый документ, информация которого зафиксирована любым типом письма.
Семёнов математика.Иванов физика.Борисов информатика.