Войдет ли в конверт размерами x см и y см прямоугольная открытка размерами К см и N см? Помогите написать программу :)

Держи программу на паскале, если есть вопросы, то пиши
program test1;var x,y,K,N:integer;beginwrite(Введите размер конверта х и у см);read(x);read(y);write(Введите размер открытки K и N см);read(K);read(N);if (xgt;=K) and (ygt;=N) thenwrite(открытка войдет)else write (не войдет);end.