Var c:string; begin writeln('Идёт ли дождь?'); readln(c); if (c='Да') or (c='да') then write('А зонта то у тебя нет!!!') end.
Спасибо большое!!!