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

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