program Project2; {$APPTYPE CONSOLE} var a,b,c,x,y:Integer; begin writeln('Vvedit znachennya zminnih'); readln(a,b,c); if (c*c)>(a*b)then writeln('Kilim zavelikii'); if (c*c*x)<=(a*b) then x:=(a*b)div(c*c); writeln(x); readln; y:=(a*b)-(x*c*c); writeln('Ploshcha nepokritoi kimnati ='); write(y); readln; end.