Website and domain for sale: mail@discussmain.com

Please count PLEASE! IN the PASKALYaSostavte LANGUAGE "We found the program which on k entered by you – number of mushrooms, prints a phrase in the forest of k of mushrooms, and coordinates the termination of the word "mushroom" with number k.

366
Var k: integer; Begin Write (k =); ReadLn(k); Write (We found, k); if (k> 9) and (k< 20) then WriteLn (mushrooms) else Case k mod 10 of 0.5. 9: WriteLn (mushrooms); 1: WriteLn (mushroom); 2. 4: WriteLn (mushroom); End; End.
211
Answer add