клетки грибов делятся на четыре части каждые пять минут. опредилите, какое количество клеток будет через N минут. напишите цикл который будет определять количество клеток через N минут ( N - целое число, вводимое с клавиатурой )

uses crt;

var kletka,i,vremya:integer;

begin

kletka:=1;

write ('vvedite vremya');

read(vremya);

vremya:=vremya div 5;

for i:=1 to vremya do

kletka:=kletka*4;

write ('kletok stanet- ',kletka);

end.