Ввести с клавиатуры три номера школ. программа должна проверить есть ли среди них номер вашей школы Если есть то на экран выводится сообщение: номер школыесть иначе: номера школы нет. Компьютер спрашивает: Любите ли вы мороженное? При вариантах ответа: да, да, да выводит на экран: Ну что ж поедим вместе! в других случаях выводит: Вот и хорошо! Отдай свою порцию мне.
Про школы я уже тебе сделал про мороженое: var s1,s2,s3,s4:longint; begin writeln('Любите ли вы мороженное?'); readln(s1,s2,s3); s4:='да'; if (s1=s2) and (s2=s3) and (s3=s4) then writeln(' Ну что ж поедим вместе!') else writeln(' Вот и хорошо! Отдай свою порцию мне.'); end.