Var x,y,a,b:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if ((a<x)and(b<y))or((b<x)and(a<y)) then Write('Можно')
else Write('Нельзя');
End.
Ну вот так, как то. Не уверен только насчет N2 - 3). А так все верно
120
То есть там прибавляешь разницу между двумя прошлыми и прошлым и этим числом, короче говоря ответ 120