Pascal ABC
Var
A,B,C,D:byte;
Begin
Read(A,B,C,D);
if (Abs(C-A)<=1)and(Abs(D-B)<=1) then WriteLn('YES')
else WriteLn('NO')
End.
Program natashka300198;
var i:char;
begin
write('i=');read(i);
case i of
'1': writeln('Понедельник');
'2': writeln('Вторник');
'3': writeln('Среда');
'4': writeln('Четверг');
'5': writeln('Пятница');
'6': writeln('Суббота');
'7': writeln('Воскресенье');
end;
<span>end.</span>
При максимальном значении цвет будет белым, а при минимальном черный
56600:1000=56.6
ответ: модем передаст 56.6 да минуту