Ziyayev Behzod 110-20 guruh talabasi Robocontestdagi 10-masala

Ziyayev Behzod 110-20 guruh talabasi
Robocontestdagi 10-masala
a = gets.to_i
b, c, d = gets.split.map(&:to_i)
puts (a - b - c < d) ? "Yes" : "No"
kod uzunligi bo’yicha kirganman reytinga Ruby da qildim.
var
a, b, c, d: Integer;
begin
Readln(a);
Readln(b, c, d);

if (a - b - c < d) then

Writeln('Yes')
else
Writeln('No');
end.
Free pascal xotira bo’yicha kirganman.