Составьте блок- схему ) желательно фото) из трёх монет одинакового достоинства 1 фальшивка(более лёгкая как её найти с одного взвешивания на чашечных весах без гирь. за это 59 !
Var n: integer; begin readln(n); if (n mod 10 =1) and (n< > 11) then writeln(n,' год') else if (n> =5) and (n< =20) then writeln(n,' лет') else if (n mod 10< =4) and (n mod 10> 0) then writeln(n,' года') else writeln(n,' лет'); end.