Program a;
var i,f,n:integer;
begin
f:=1;
writeln('введите кол-во часов');
read(n);
n:=n div 3;
for i:=1 to n do
f:=f+1;
writeln('амеб ',f);
end.
Program a;
var i,f,n:integer;
begin
f:=1;
writeln('введите кол-во часов');
read(n);
n:=n div 3;
for i:=1 to n do
f:=f+1;
writeln('амеб ',f);
end.