1 Var a,i:integer;
2 begin
3 for i:=100 to 999 do
4 begin
5 a:=i mod 100;
6 if 7*a=i then writeln(i);
7 end;
8 End.
Мерседес голубого цвета, а Феррари не белая. Значит Феррари зелёная, а Порше белый.
Семён купил не голубой автомобиль, и не любит Порше. Значит он купил зелёный Феррари.
У Ивана не белый автомобиль, а зелёный Феррари принадлежит Семёну. Значит у Ивана голубой Мерседес.
Мерседес и Феррари заняты, значит Николай купил белый Порше.
Var x,y:integer;
begin
readln(x,y);
if (x>0) and (y>0) then writeln('I');
if (x<0) and (y>0) then writeln('II');
if (x<0) and (y<0) then writeln('III');
if (x>0) and (y<0) then writeln('IV');
end.
Надеюсь на "Лучший ответ"
Содержит "Если" и "Иначе", либо подобные.
Например - "Он сказал: "либо вы отдаете деньги сейчас, либо вы пожалеете".
if (Вы отдали деньги) then (Все хорошо)
else (Вы пожалеете)