Нужно написать программу к в турбо паскале и сделать к блок-схему. каждый день поль получает карманные деньги на мелкие расходы.из них он тратит 30 пенсов на сладости.это составляет 1/4 часть того,что он покупает ежедневно.поль сберегает 1/3 того,что остается после покупки сладостей.напишите программу,которая выводит на экран сумму,накопленную полем за один год.
varx,y,z: real;
begin
y:=(((30*4)-30)/3)*365;
write('nakopleniya Pole za god = ', y);
readln (y);
end.