Составьте программу и зарисуйте блок-схему к ней. Если число, введенное с клавиатуры, четырехзначное и делится на 5, то вывести слово "удача".

Program n1;var num: integer;beginreadln(num);if (num>999) and (num<10000) and (num mod 5=0)then write('удача');end.