Var
StenaH,StenaW,plH,plW,temp,cena:real;
begin
Writeln('Введите размеры стены HxW, размеры плитки HxW В САНТИМЕТРАХ, цену В РУБЛЯХ: ');
readln(StenaH,StenaW,plH,plW,cena);
temp:=(trunc(StenaH/plH)+1)*(trunc(StenaW/plW)+1);
writeln('Количество плитки на стену: ',temp,' цена за все: ', temp*cena, ' рублей');
end.