Что пропущенно после then где точки fuction f(n:integer) :integer;
begin
if n>1
then
else f:=1;
end;

vikysikkkkk    2   22.12.2020 20:22    1