===== PascalABC.NET =====
begin
ReadlnString.Select(c -> 2 * c).Println('')
end.
C1, r1, c2, r2 = [int(x) for x in input().split()]
hasMove = c1 == c2 or r1 == r2 or abs(c1-c2) == abs(r1-r2)
print('YES' if hasMove else 'NO')
//Это экспериментальное решение, не воспринимайте всерьёз
var ar:array[1..15] of integer;
i:integer;
begin;
var i1:=1;
while i1<=15 do
begin;
var ar1:=ArrRandomInteger(4,1,20);
sort(ar1);
ar[i1]:=ar1[1];
ar[i1+1]:=ar1[2];
ar[i1+2]:=ar1[3];
writeln(ar1[1]:4,ar1[2]:4,ar1[3]:4);
i1:=i1+3;
end;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
<span>end.</span>
Школьный обед - меню (список блюд с ценой), сколько человек подписаны на
бесплатный/комплексный обед, какой объем блюд нужно приготовить к
обеду, время обеда и тд
Ремонт квартиры - какие изменение
необходимо сделать, бюджет, кто будет делать, материалы и их
приобретение, инструменты, рассчетное время ремонта и тд
Пассажир поезда - имя, место, билет, постель, чай, спутники, багаж, от куда и куда, поезд и вагон
Дом, в котором ты живешь - адрес, этажность, материал стен, коммуникации, год сдачи, кол-во подьездов и тп
Заключи то что после if в скобки и будет тебе счастье. И ' ; ' убери после g mod 2 =0.
и в действии перед if в конце поставь ' ; '.