Ввести с клавиатуры три номера школ. программа должна проверить есть ли среди них номер вашей школы если есть то на экран выводится сообщение: номер школы есть иначе: номера школы нет. компьютер спрашивает: любите ли вы мороженное? при вариантах ответа: да, да, да выводит на экран: ну что ж поедим вместе! в других случаях выводит: вот и хорошо! отдай свою порцию мне.
про мороженое:
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.