Помогите с информатикой.
Решите, пожалуйста, 3 задачу по образцу 2 задачи:

Program Rabota;uses crt;var s, v: real;beginclrscr;write ('Введите Ваш возраст: ');readln (v);write ('Введите Ваш стаж работы: ');readln (s);if (v<=42) and (s>=5) then write ('Да, Вы будете приняты на работу.') else write ('Нет, Вас не примут на работу.');readkey;end.