Войдет ли в конверт размерами 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.