НАПИШИТЕ ПРОГРАММУ пожалуйста!!!!!! Очень нужно!!!!! Каждый день расходуется x пакетиков...

Question

НАПИШИТЕ ПРОГРАММУ пожалуйста!!!!!! Очень нужно!!!!! Каждый день расходуется x пакетиков чая. В пачке находится y пакетиков. Сколько пачек чая понадобится на z дней

Answer 1

Var x,y,z,a:real;
begin
writeln('Сколько израсходуется пакетиков чая в день?');
readln(x);
//writeln('Сколько пакетиков чая в коробке?');
//readln(y);
writeln('на сколько дней нужны пакетики чая?');
readln(z);
a := z * x;
writeln('Ответ: ',a);
end.