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

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