Ввести с клавиатуры три номера школ. программа должна проверить есть ли среди них номер...

Question

Ввести с клавиатуры три номера школ. программа должна проверить есть ли среди них номер вашей школы Если есть то на экран выводится сообщение: номер школы есть иначе: номера школы нет.
Компьютер спрашивает: Любите ли вы мороженное? При вариантах ответа: да, да, да выводит на экран: Ну что ж поедим вместе! в других случаях выводит: Вот и хорошо! Отдай свою порцию мне.

Answer 1

Про школы я уже тебе сделал
про мороженое:
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.