Смогут ли приготовить k тортов, если есть х муки…

program amazonia; var x,y,k: integer; begin writeln ('ââåäèòå êîëâî òîðòîâ'); read (k); writeln ('ââåäèòå êîëâî ìóêè'); read (x); writeln ('ââåäèòå êîëâî ìóêè íà 1 òîðò'); read (y); if x div y>=k then writeln ('äà ñìîãóò') else writeln ('íåò íå ñìîãóò'); end. Вставь в паскаль и все будет.