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.
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.