Напишите программу в pascal, которая проверяет делимость введенного числа с клавиатуры на 2,3,4,5

Var a: integer;   flag: boolean; begin   flag: =false;   write('введите число ');   readln(a);   if a mod 2 = 0 then  begin       writeln('число ',a,' делится на 2');       flag: =true;   end;   if a mod 3 = 0 then begin       writeln('число ',a,' делится на 3');       flag: =true;   end;   if a mod 4 = 0 then  begin       writeln('число ',a,' делится на 4');       flag: =true;   end;   if a mod 5 = 0 then  begin       writeln('число ',a,' делится на 5');       flag: =true;   end;   if not flag then writeln('число ',a,' не делится на 2,3,4,5'); end.

германия

испания

 

португалия

франция

чехия

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21. 

ответ:

позавчера   - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.