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

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

Если ответ по предмету Литература отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.